10 REM ********************
11 REM ***              ***
12 REM ** PUTT PUTT GOLF **
13 REM ***              ***
14 REM ********************
15 :
16 :
18 FORTR=54273TO54273+20:POKETR,0:NEXT:POKE54296,15:GOSUB25000
20 GOSUB1000:REM INSTRUCTIONS
30 PRINT"[147]":POKE53280,0:POKE53281,0:GOSUB18110:GOSUB2000:REM SETUP
40 POKE53280,7:POKE53281,1:GOSUB3000:REM PLAY
50 GOTO4000:REM !END!
60 END
70 :
1000 :
1001 :REM *** INSTS
1002 POKE53281,1
1003 POKE53280,1:PRINT"[147] * *  P U T T   P U T T   G O L F [146] * *
1010 [153]"POKE"
1025 :
1030 [153]"WELCOME TO THE STUART COUNTRY CLUB!     THIS BEAUTIFUL NINE-HOLE ";
1031 [153]"MINIATURE GOLF COURSE IS OPEN AND WAITING FOR YOU!":[141]25160
1035 :
1040 [153]"YOU SHOULD KNOW THE IDIOSYNCRASIES OF   THE COURSE BEFORE YOU PLAY."
1041 [153]
1045 [153]"TO PUTT THE BALL, YOU HAVE TO INPUT     WHICH DIRECTION YOU WANT TO";
1046 [153]" AIM IT."
1047 [153]"THERE ARE 8 DIRECTIONS, AS SHOWN BELOW."
1048 [153]"YOUR BALL IS ALWAYS AT THE *STAR*"
1050 [153]:[153][163]17)"2 1 8":[153][163]17)"3 * 7":[153][163]17)"4 5 6"
1060 [141]25160:[153]:[141]17200
1070 [153]"LOAD"
1075 [153]" * *  M I N I A T U R E   G O L F WAIT * *
1080 PRINT"[151]THEN YOU MUST INPUT HOW HARD TO HIT THE BALL.  THE SPEED SHOULD ";
1081 PRINT "BE SOME NUMBER  BETWEEN 0 AND 5."
1082 PRINT"TRY A FEW SPEEDS AND SEE WHAT HAPPENS!"
1090 PRINT"IT WILL TAKE A FEW TRIES BEFORE YOU GET THE FEEL OF HOW HARD";
1095 PRINT" TO PUTT THE BALL!":GOSUB25160
1100 PRINT"[151]ALSO, THERE ARE FOUR TYPES OF HAZARDS ONTHE COURSE.  YOU SHOULD ";
1105 PRINT"BE AWARE OF WHATTHEY ARE AND WHAT AFFECT THEY HAVE ON   YOU ";
1106 PRINT"AND YOUR BALL...":GOSUB25160
1110 PRINT"":GOSUB17200
1120 PRINT"[147]"
1125 PRINTTAB(9)"- - H A Z A R D S - -[151]"
1126 PRINT:PRINT
1130 PRINT"BLOCKS:[146] THESE ARE LIKE WALLS.  YOU MUST PUTT AROUND THEM."
1135 PRINT
1140 PRINT"YELLOW TRAPS[146] REPRESENT SAND.  YOUR BALL CANNOT PENETRATE THROUGH ";
1141 PRINT"A SAND TRAP.   THE PENALTY FOR LANDING IN THE SAND IS  ONE STROKE."
1145 PRINT
1150 PRINT"WATER:[146] LIKE SAND,THESE BLUE HAZARDS WILL SLOW AND STOP YOUR BALL.";
1151 PRINT"  THE  PENALTY FOR LANDING IN THE WATER IS ONE STROKE."
1155 PRINT
1160 PRINT"UNEVEN SURFACES:[146] THESE RED HAZARDS CAUSETHE BALL TO ROLL IN ";
1165 PRINT"A DIRECTION WHICH ISUNPREDICTABLE.  THERE IS NO  PENALTY ";
1166 PRINT"FORHITTING THIS HAZARD."
1170 PRINT"":GOSUB17200
1180 PRINT"[147][152]"
1185 PRINT" * *  P U T T   P U T T   G O L F [146] * *
1186 [153]:[153]
1190 [153]"YOU ARE TRYING TO SINK THE BALL IN AS   FEW TRIES AS POSSIBLE.  ";
1191 [153]"THE HOLE IS THE BLACK SQUARE.":[141]25160
1195 [153]
1200 [153]"IF YOU HIT THE BALL TOO HARD, IT WILL   JUMP OVER THE HOLE AND ";
1205 [153]"CONTINUE ROLLING.IT MAY ALSO CHANGE DIRECTION, SO BE SURETO HIT ";
1206 [153]"THE BALL JUST HARD ENOUGH!":[141]25160
1210 [153]"":[141]17200
1990 [142]
2000 :
2001 :[143] *** SETUP
2002 :
2010 [134]HA(9,5):[129]I[178]1[164]9:[129]J[178]1[164]5:[135]HA(I,J):[130]:[130]
2011 [131] 0,0,0,0,2
2012 [131] 1,0,0,0,3
2013 [131] 0,1,0,0,3
2014 [131] 1,1,0,0,3
2015 [131] 0,0,0,1,3
2016 [131] 0,0,1,1,3
2017 [131] 1,0,1,0,3
2018 [131] 0,1,1,0,4
2019 [131] 0,0,1,1,3
2020 [134]DI(8,2):[129]I[178]1[164]8:[135]DI(I,1),DI(I,2):[130]
2025 [131] 0,-1,-1,-1,-1,0,-1,1,0,1,1,1,1,0,1,-1
2030 PLT[178]49152:[129]I[178]0[164]24:[135]C:[151]PLT[170]I,C:[130]I
2031 [131]32,16,192,132
2032 [131]253,32,16,192
2033 [131]152,170,164,253
2034 [131]24,76,240,255
2035 [131]32,253,174,32
2036 [131]158,173,76,170,177
2040 [134]V(8):[129]I[178]1[164]8:[135]V(I):[130]:[131]-40,-41,-1,39,40,41,1,-39
2050 :
2055 [150] [165]CO(X)[178][194](55296[170]BX[170]40[172]BY[170]X)[175]15
2060 [150] [165]SC(X)[178][194](1024[170]BX[170]40[172]BY[170]X)
2090 [142]
2100 [143] *** HOLE 1
2105 [141]2050
2106 [153]""
2110 [153][163]9)"STOPNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEW"
2112 [129]I[178]1[164]15
2115 [153][163]9)"GET                            WAITSTOPGET"
2120 [130]
2125 [153][163]9)"STOPCOSNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWWAITLOG"
2130 [153]""[163]18)" "
2135 BY[178]16:BX[178]11[170][181](17[172][187](0)):[158]PLT,BX,BY:[153]"(null)";
2140 [142]
2200 [143] *** HOLE 2
2205 [141]2050
2206 [153]""
2210 [153][163]7)"STOPNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEW"
2212 [129]I[178]1[164]5
2215 [153][163]7)"GET                              WAITSTOPGET"
2220 [130]
2221 [153][163]7)"GET                              WAITSTOPGET"
2222 [153][163]7)"GET                              WAITSTOPGET"
2223 [153][163]7)"GET                              WAITSTOPGET"
2224 [153][163]7)"GET                              WAITSTOPGET"
2225 [153][163]7)"GET                              WAITSTOPGET"
2226 [129]I[178]1[164]6
2227 [153][163]7)"GET                              WAITSTOPGET"
2230 [130]
2235 [153][163]7)"COSNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEW        NEWWAITLOG"
2240 BY[178]17:BX[178]9[170][181](15[172][187](0)):[158]PLT,BX,BY:[153]"(null)";
2245 [153]""[163]29)"STOP "
2250 [142]
2300 [143] *** HOLE 3
2306 [153]""
2310 [153][163]7)"STOPNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEW"
2312 [129]I[178]1[164]5
2315 [153][163]7)"GET                              WAITSTOPGET"
2320 [130]
2321 [153][163]7)"COS                              WAITSTOPGET"
2322 [153][163]7)"GET                              WAITSTOPGET"
2323 [153][163]7)"GET                  SYS            WAITSTOPGET"
2324 [153][163]7)"GET                 SYS             WAITSTOPGET"
2325 [153][163]7)"GET                 SYS             WAITSTOPGET"
2326 [153][163]7)"GET                 SYS             WAITSTOPGET"
2335 [153][163]7)"GET                              WAITSTOPGET"
2340 [129]I[178]1[164]4
2345 [153][163]7)"GET                              WAITSTOPGET"
2350 [130]
2355 [153][163]7)"WAITCOSNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWWAITLOG"
2360 [153]""[163]31)"STOP "
2365 BY[178]17:BX[178]9[170][181](15[172][187](0)):[158]PLT,BX,BY:[153]"(null)"
2390 [142]
2400 [143] *** HOLE 4
2406 [153]""
2410 [153][163]6)"STOPNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEW"
2412 [129]I[178]1[164]6
2415 [153][163]6)"GET                              WAITSTOPGET"
2420 [130]
2421 [153][163]6)"GET            STOPNEWNEWNEWNEWNEWNEWNEWNEWNEW         WAITSTOPGET"
2425 [129]I[178]1[164]4
2430 [153][163]6)"GET            STOPWAITGET       GET         WAITSTOPGET"
2435 [130]
2440 [153][163]6)"GET            STOPWAITGET       COSNEWNEWNEWNEWNEWNEWNEWNEWNEWWAITLOG"
2445 [129]I[178]1[164]3
2450 [153][163]6)"GET            STOPWAITGET"
2455 [130]
2460 [153][163]6)"COSNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWWAITLOG"
2465 [153]""[163]17)"SYS       CMDCMDCMDCMDCMDCMD     CMDCMDCMDCMD "
2470 [153][163]24)" CMDCMDCMD   CMDCMDCMDCMDCMD      "
2475 [158]PLT,32,10:[153]"STOP "
2480 BY[178]16:BX[178]8[170][181](10[172][187](0)):[158]PLT,BX,BY:[153]"(null)"
2490 [142]
2500 [143] *** HOLE 5
2506 [153]""
2510 [153][163]9)"STOPNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEW"
2512 [129]I[178]1[164]15
2515 [153][163]9)"GET                           WAITSTOPGET"
2520 [130]
2525 [153][163]9)"STOPCOSNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWWAITLOG"
2530 [158]PLT,19,6:[153]"/LENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENEXP"
2535 [158]PLT,22,4:[153]"STOP "
2540 BY[178]16:BX[178]11[170][181](23[172][187](0)):[158]PLT,BX,BY:[153]"(null)"
2590 [142]
2600 [143] *** HOLE 6
2605 [141]2050
2606 [153]""
2610 [153][163]7)"STOPNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEW"
2612 [129]I[178]1[164]7
2615 [153][163]7)"GET                              WAITSTOPGET"
2620 [130]
2625 [153][163]7)"GET                    STOPNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWWAITLOG"
2630 [129]I[178]1[164]7
2635 [153][163]7)"GET                              WAITSTOPGET"
2640 [130]
2645 [153][163]7)"COSNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWWAITLOG"
2650 [158]PLT,27,4:[153]"ORCMD CMD/"
2655 [158]PLT,20,5:[153]"CMDCMDCMDCMDCMDCMD CMDCMDCMDCMDCMD    CMDCMDCMD    "
2660 [158]PLT,30,5:[153]"STOP "
2665 BY[178]16:BX[178]9[170][181](15[172][187](0)):[158]PLT,BX,BY:[153]"(null)"
2690 [142]
2700 [143] *** HOLE 7
2706 [153]""
2710 [153][163]7)"STOPNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEW"
2712 [129]I[178]1[164]4
2715 [153][163]7)"GET                              WAITSTOPGET"
2720 [130]
2721 [153][163]7)"GET         STOP WAITNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWRND"
2725 [129]I[178]1[164]4
2727 [153][163]7)"GET                              STOPWAITGET"
2730 [130]
2735 [153][163]7)"STOP NEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEW                   STOPWAITGET"
2740 [129]I[178]1[164]5
2745 [153][163]7)"STOPGET                              STOPWAITGET"
2750 [130]
2755 [153][163]7)"STOPNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWWAIT"
2760 [158]PLT,9,7:[153]"    CMDCMDCMDCMD     CMDCMDCMDCMD      CMDCMDCMDCMDCMD        "
2765 [158]PLT,27,7:[153]"         CMDCMDCMDCMDCMDCMD    CMDCMDCMDCMDCMDCMD        CMDCMDCMDCMDCMDCMDCMD       "
2770 [158]PLT,13,4:[153]"STOP "
2775 BY[178]16:BX[178]25[170][181](13[172][187](0)):[158]PLT,BX,BY:[153]"(null)"
2799 [142]
2800 [143] *** HOLE 8
2806 [153]""
2810 [153][163]6)"STOPNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEW"
2812 [129]I[178]1[164]6
2815 [153][163]6)"GET                              WAITSTOPGET"
2820 [130]
2821 [153][163]6)"GET       STOPNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEW          WAITSTOPGET"
2825 [129]I[178]1[164]4
2830 [153][163]6)"GET       STOPWAITGET       GET              WAITSTOPGET"
2835 [130]
2840 [153][163]6)"COSNEWNEWNEWNEWNEWNEWNEWWAITLOG       GET              STOPWAITGET"
2845 [129]I[178]1[164]3
2850 [153][163]6)"GET                              STOPWAITGET"
2855 [130]
2860 [153][163]6)"COSNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWWAITLOG"
2865 [158]PLT,28,2:[153]"        "
2866 [158]PLT,29,3:[153]"       "
2867 [158]PLT,30,4:[153]"      "
2868 [158]PLT,31,5:[153]"     "
2869 [158]PLT,32,6:[153]"    "
2870 [158]PLT,33,7:[153]"   "
2875 [158]PLT,13,3:[153]"SYS   CMDCMDCMDCMD     CMDCMDCMDCMDCMD     CMDCMDCMDCMD   "
2880 [158]PLT,13,10:[153]"STOP "
2885 BY[178]16:BX[178]27[170][181](10[172][187](0)):[158]PLT,BX,BY:[153]"(null)"
2890 [142]
2900 [143] *** HOLE 9
2905 [141]2050
2906 [153]""
2910 [153][163]7)"STOPNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEW"
2912 [129]I[178]1[164]9
2915 [153][163]7)"GET                              WAITSTOPGET"
2920 [130]
2921 [153][163]7)"LOG            *                 WAITSTOPGET"
2925 [129]I[178]1[164]5
2927 [153][163]7)"GET                              WAITSTOPGET"
2930 [130]
2935 [153][163]7)"COSNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWWAITLOG"
2940 [158]PLT,19,2:[153]"                   "
2941 [158]PLT,20,3:[153]"                  "
2942 [158]PLT,21,4:[153]"                 "
2943 [158]PLT,22,5:[153]"                "
2944 [158]PLT,23,6:[153]"               "
2950 [158]PLT,11,6:[153]"STOP "
2955 [158]PLT,14,5:[153]"^CMD(null)CMDEXP"
2960 BY[178]16:BX[178]21[170][181](15[172][187](0)):[158]PLT,BX,BY:[153]"(null)"
2990 [142]
3000 :
3001 :[143] *** PLAY
3002 :
3010 [129]HO[178]1[164]9:BC$[178]""
3015 [153]"LOAD";
3020 [145]HO[141]2100,2200,2300,2400,2500,2600,2700,2800,2900
3030 [153]"CONTHOLE NUMBER:"HO"PAR:"HA(HO,5)"SCORE:"SC
3031 [153]:[153]"TRAPS:":[139]HA(HO,1)[167][153]"WATER"
3032 [139]HA(H0,2)[167][153]"SYSSAND"
3033 [139]HA(HO,3)[167][153]"UNEVEN"
3034 [139]HA(HO,4)[167][153]"STOPBLOCKS"
3035 [153]:[153]"STOP2 1 8":[153]"3 (null) 7":[153]"4 5 6"
3036 [158]PLT,0,19:[129]I[178]1[164]5:[153]"       ":[130]
3037 D$[178]"":[158]PLT,0,20:[153]"DEF DIRECTION?  (1-8) WAIT"
3038 [161]D$:[139]D$[178]""[167]3038
3039 DIR[178][197](D$):[143]**IFDIR<1ORDIR>8THEN3038
3040 [139]DIR[177]0[175]DIR[179]9[175]DIR[178][181](DIR)[167]3045
3041 [137]3036:[143]**PRINT"DIRECTION IS FROM 1 TO 8 !":FORPA=1TO1500:NEXT:GOTO3036
3045 [158]PLT,0,19:[129]I[178]1[164]5:[153]"                                     ":[130]
3046 D$[178]"":[158]PLT,0,20:[153]" SPEED? (FROM 0-5) WAITSTOP"
3047 [161]D$:[139]D$[178]""[167]3047
3048 SP[178][197](D$):[139]SP[179]0[176]SP[177]5[167]3047
3050 [139]SP[178][177]0[175]SP[179][178]5[167]3055
3051 [143]****PRINT"THE SPEED IS FROM 0 TO 5 ...":FORPA=1TO1500:NEXT:GOTO3045
3055 UF[178]0:[143] CLEAR UNEVEN FLAG
3056 TF[178]0:[143] CLEAR TRAP FLAG
3060 [158]PLT,0,20:[153]"                              "
3100 X2[178]BX[170]DI(DI,1):Y2[178]BY[170]DI(DI,2)
3110 D2[178]V(DI):CO[178][165]CO(D2):[139]CO[179][177]5[176][165]SC(D2)[179][177]160[167]3120
3115 [158]PLT,BX,BY:[153]BC$" ";:BX[178]X2:BY[178]Y2:[158]PLT,BX,BY:[153]"(null)";
3116 BC$[178]"":[137]3900
3120 [139]CO[178]0[175][165]SC(D2)[179][177]160[167][141]18236:[137]3200:[143] HIT A WALL
3121 [139] CO[178]6[167][141]18290:[137]3300:[143] WATER
3122 [139] CO[178]7[167][141]18290:[137]3400:[143] SAND
3123 [139] CO[178]2[167][141]18185:[137]3500:[143] UNEVEN
3124 [139] CO[178]0[167][141]18488:[137]3600:[143] THE HOLE
3125 [143] WE HIT A BLOCK
3200 [139]DI[178]1[176]DI[178]3[167]DI[178]DI[170]4:[137]3100
3201 [139]DI[178]7[176]DI[178]5[167]DI[178]DI[171]4:[137]3100
3210 [145]DI[173]2[137]3220,3240,3260,3280
3220 [139][165]SC(D2[170]1)[179][177]160[175][165]SC(D2[170]40)[179][177]160[167]DI[178]6:[137]3100
3225 [139][165]SC(D2[170]1)[179][177]160[167]DI[178]4:[137]3100
3230 [139][165]SC(D2[170]40)[179][177]160[167]DI[178]8:[137]3100
3235 DI[178]6:[137]3100
3240 [139][165]SC(D2[170]1)[179][177]160[175][165]SC(D2[171]40)[179][177]160[167]DI[178]8:[137]3100
3245 [139][165]SC(D2[170]1)[179][177]160[167]DI[178]2:[137]3100
3250 [139][165]SC(D2[171]40)[179][177]160[167]DI[178]6:[137]3100
3255 DI[178]8:[137]3100
3260 [139][165]SC(D2[171]1)[179][177]160[175][165]SC(D2[171]40)[179][177]160[167]DI[178]2:[137]3100
3265 [139][165]SC(D2[171]1)[179][177]160[167]DI[178]8:[137]3100
3270 [139][165]SC(D2[171]40)[179][177]160[167]DI[178]4:[137]3100
3275 DI[178]2:[137]3100
3280 [139][165]SC(D2[171]1)[179][177]160[175][165]SC(D2[170]40)[179][177]160[167]DI[178]4:[137]3100
3285 [139][165]SC(D2[171]1)[179][177]160[167]DI[178]6:[137]3100
3290 [139][165]SC(D2[170]40)[179][177]160[167]DI[178]2:[137]3100
3295 DI[178]4:[137]3100
3300 [139]TF[167]3310
3305 TF[178]3:SC[178]SC[170]1:[143] TRAP FLAG
3310 [158]PLT,BX,BY:[153]BC$" ";
3315 BX[178]X2:BY[178]Y2:[158]PLT,BX,BY:[153]"(null)";:BC$[178]""
3320 [137]3900
3400 [139]TF[167]3410
3405 TF[178]3:SC[178]SC[170]1:[143] TRAP FLAG
3410 [158]PLT,BX,BY:[153]BC$" ";
3415 BX[178]X2:BY[178]Y2:[158]PLT,BX,BY:[153]"SYS(null)";:BC$[178]"SYS"
3420 [137]3900
3500 [139]UF[167]3520
3505 UF[178]1:[143] UNEVEN FLAG, HAVE RE ROLLED BALL OFF COURSE YET?...
3510 DI[178]DI[170]2[172][181](2[172][187](0))[171]1
3515 [139]DI[178]0[167]DI[178]8
3516 [139]DI[178]9[167]DI[178]1
3520 [158]PLT,BX,BY:[153]BC$" ";
3525 BX[178]X2:BY[178]Y2:[158]PLT,BX,BY:[153]"(null)";:BC$[178]""
3530 [137]3900
3600 [158]PLT,BX,BY:[153]" ":[158]PLT,X2,Y2:[153]" "
3601 [158]PLT,X2,Y2:[153]"STOP ";
3602 DI[178]DI[170]2[172][181](2[172][187](0))[171]1
3604 [139]DI[178]0[167]DI[178]8
3605 [139]DI[178]9[167]DI[178]1
3606 SP[178]SP[171].5:[139]SP[177]0[167]X2[178]X2[170]DI(DI,1):Y2[178]Y2[170]DI(DI,2):[137]3110
3610 SC[178]SC[170]1:[137]3990
3900 :
3902 [139]TF[177]0[167]TF[178]TF[171]1:[139]TF[178]0[167]3910
3905 SP[178]SP[171].3:[139]SP[177]0[167]3100
3910 SC[178]SC[170]1:[137]3030
3980 [161]X$:[139]X$[178]""[167]3980
3990 [141]22480:[130]HO:[142]:[143]*** MADE THE HOLE! GO TO NEXT ROUND.
4000 :
4001 :[143]   *** END
4002 :
4005 [129]PA[178]1[164]200:[130]PA:[151]53280,2
4010 [151]53281,1:[153]"LOADWAIT * *  M I N I A T U R E   G O L F WAIT * *POKE"
4015 [153]:[153]:[153]:[153]
4020 [153]"   T H E   G A M E   I S   O V E R !":SD[178]400:[141]22480
4022 [141]25160
4025 [153]"ON THE PAR 27 COURSE, YOU SHOT":[153]"A ROUND OF "SC".  THAT IS AN"
4026 [153]"AVERAGE OF"[181](SC[172]100[173]9)[173]100"SHOTS PER HOLE.":SD[178]1:[141]22480
4030 [153]
4035 [153]"       HOPE YOU ENJOYED THE GAME!":[141]25160
4040 OB$[178]" CARE TO PLAY AGAIN?  (Y OR N)":[141]25080
4045 [161]PA$:[139]PA$[178]"Y"[167]SC[178]0:HO[178]1:[137]40
4050 [139]PA$[178]"N"[167]4100
4055 [137]4045
4100 SD[178]1:[151]53280,0:[151]53281,0:[153]"LOAD"
4105 [141]25070:[141]22480:[141]25120:[153]"":[128]
17200 [153]"DEF   - - - H I T   A N Y   K E Y - - -ON":[129]I[178]1[164]300:[130]
17201 [161]A$:[139]A$[179][177]""[167][153]"POKE":[142]
17202 [153]"   - - - H I T   A N Y   K E Y - - -ON":[129]I[178]1[164]300:[130]:[137]17200
18109 [143] - COMPUTER SOUNDS.              CHANGE 'NT' IN LINE 18117 FOR LENGTH.
18110 NT[178]0:SID[178]54272:[129]N[178]SID[164]SID[170]24:[151]N,0:[130]N
18113 [151]SID[170]6,240:[151]SID[170]15,18:[151]SID[170]18,16:[151]SID[170]24,5
18114 [151]SID[170]4,17:[151]SID[170]1,[194](SID[170]27):NT[178]NT[170]1
18115 [129]T[178]1[164]5:[130]T:[151]SID[170]24,15
18117 [139]NT[178]70[167]18119
18118 [137]18114
18119 [129]REG[178]SID[164]SID[170]23:[151]REG,0:[130]REG:[129]VV[178]15[164]0[169][171].1
18120 [151]SID[170]24,VV:[130]:[142]
18183 [143] - SINGLE TONE. VARY LENGTH BY CHANGING T IN 18187
18184 [143] - VARY ATTACK/DELAY BY CHANGING (10) IN 54277 ON LINE 18185
18185 [129]L[178]54272[164]54276:[151]L,0:[130]:[151]54296,15:[151]54277,10
18186 [151]54278,248:[151]54273,248:[151]54273,17:[151]54272,37
18187 [151]54276,33:[129]T[178]1[164]100:[130]
18188 [151]54276,32:[142]
18234 [143] - BEEP.  CHANGE T FOR LENGTH
18236 [151]54272,12:[151]54273,36:[151]54296,15
18237 [151]54278,240:[151]54276,33:[129]T[178]1[164]50:[130]
18238 [151]54276,0:[151]54276,32:[151]54276,0
18239 [142]
18288 [143] -DOWN SWEEP SOUND. VARY LENGTH WITH STEP # IN 18294 (NOW -3)
18290 S1[178]54272:W1[178]S1[170]4:W3[178]S1[170]18:V[178]S1[170]24:PW[178]S1[170]27:PE[178]S1[170]20
18291 [129]I[178]S1[164]PE:[151]I,0:[130]
18292 [151]W1[170]1,17:[151]W1[170]2,251:[151]W3[170]1,187:[151]W2[170]2,140
18293 [151]V,143:[151]W3,17
18294 [151]W1,17:[129]I[178]200[164]20[169][171]3:[151]S1[170]1,I:[130]
18300 [151]W1,0:[151]W3,0:[129]T[178]1[164]300:[130]:[142]
18488 LA[178]54273:[143] - PLINK SOUND - VARY LENGTH WITH FIRST DD:VARY TIMES WITH LL
18489 [129]LA[178]LA[164]LA[170]10:[151]LA,0:[130]:[129]LL[178]1[164]1
18490 [151]54296,15:[151]54291,8:[151]54292,8:F1[178]54287:F2[178]54286:W[178]54290
18491 [151]F1,21:[151]F2,31:[151]W,33:[129]DD[178]1[164]500:[130]:[151]F1,32:[151]F2,195
18492 [151]W,17:[129]DD[178]1[164]100:[130]:[151]W,0:[130]LL:[142]
22460 [143]
22470 [143] - TRIUMPH SOUND
22480 [151]54296,15:[151]54277,1:[151]54278,248
22490 [129]NO[178]20[164]60[169]10:[151]54273,NO
22500 [151]54272,47:[151]54276,17
22510 [129]T[178]1[164]SD:[130]T:[130]NO
22520 [129]T[178]1[164]500:[130]:[151]54276,16:[142]
25000 [151]53280,15:[151]53281,0:[153][199](142)"LOAD":[141]25070
25010 [153]"   *  P U T T   P U T T   G O L F WAIT *"
25020 [153]"      INSTRUCTIONS?     YWAITES OR NWAITO":[141]25160
25021 [141]25120:[141]22480
25030 [161]IN$:[139]IN$[178]""[167]25030
25040 [139]IN$[178]"Y"[167][153]"LOAD":[137]20
25050 [139]IN$[178]"N"[167][153]"LOAD":[137]30
25060 [137]25030
25070 OB$[178]"  C-64 VERSION BY BILL BRITTON"
25080 AA[178][195](OB$):[139]AA[173]2[179][177][181](AA[173]2)[167]A$[178]" "[170]OB$:[137]25080
25090 [129]V[178]1[164]AA[173]2:[153][163]19[171]V);[200](OB$,V);[201](OB$,V):[153]"ON";
25100 [129]ZA[178]1[164]50:[130]ZA:[130]V:[153]:[141]25160
25110 [153]"                                     ":[141]25160
25111 [142]
25120 [129]N[178]1[164]40:[151]1023[170]N,214:[151]55295[170]N,5
25130 [151]2024[171]N,214:[151]56296[171]N,5:[130]N
25140 [129]N[178]1[164]24:[151]1024[170]39[170]40[172]N,214:[151]55296[170]39[170]40[172]N,5
25150 [151]2023[171]39[171]40[172]N,214:[151]56295[171]39[171]40[172]N,5:[130]N:[142]
25160 [129]YX[178]1[164]40:[151]646,[187](1)[172]15[170]2:[153]" ";:[130]:[153]"WAITPOKE":[142]
29999 [143]*****TWINKLE LETTERS
30000 [153]"":T[178]0:A$[178]"  * * P L A Y   A G A I N ?  * *"
30001 C[178]646:[129]I[178]0[164]5
30002 [151]C,I:[153]"ON"A$:[129]D[178]1[164]50:[130]D:[130]I:T[178]T[170]1
30003 [139]T[178]3[167][137]30006
30004 [153]"ON"A$
30005 [151]C,15:[137]30001
30006 [153]"POKEON"A$:[151]53281,1:[142]